|
100
|
How do I enable the cross link support ( rectangular )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",0,76
With .Add("Element <sha ;;0>C",-76,32)
.AutoSize = False
.Height = 32
End With
With .Add("Element <sha ;;0>D",76,32)
.AutoSize = False
.Height = 32
End With
End With
With .Links
With .Add(Surface1.Elements.Item(1),Surface1.Elements.Item(2))
.StartPos = 1
.EndPos = 1
End With
With .Add(Surface1.Elements.Item(2),Surface1.Elements.Item(1))
.StartPos = 1
.EndPos = 1
End With
.Add Surface1.Elements.Item(3),Surface1.Elements.Item(4)
With .Add(Surface1.Elements.Item(4),Surface1.Elements.Item(3))
.StartPos = 0
.EndPos = 2
End With
End With
.ShowLinks = 33 ' ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
End With
End Function
</SCRIPT>
</BODY>
|
|
99
|
How do I show a link frmo bottom to top, or reverse, not from left to right
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",0,64
End With
With .Links
With .Add(Surface1.Elements.Item(1),Surface1.Elements.Item(2))
.StartPos = 1
.EndPos = 1
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
98
|
What options to align the elements do I have if I use Arrange method
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.BeginUpdate
.ShowGridLines = True
With .Elements
h1 = .Add("Top Alignment").ID
.Add "Element"
.Add "Element"
.Add "Element"
h2 = .Add("Center Alignment",,96).ID
.Add "Element",,96
.Add "Element",,96
.Add "Element",,96
h3 = .Add("Bottom Alignment",,178).ID
.Add "Element",,192
.Add "Element",,192
.Add "Element",,192
End With
With .Links
.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
.Add Surface1.Elements.Item(1),Surface1.Elements.Item(3)
.Add Surface1.Elements.Item(2),Surface1.Elements.Item(4)
.Add Surface1.Elements.Item(2),Surface1.Elements.Item(3)
.Add Surface1.Elements.Item(5),Surface1.Elements.Item(6)
.Add Surface1.Elements.Item(5),Surface1.Elements.Item(7)
.Add Surface1.Elements.Item(6),Surface1.Elements.Item(8)
.Add Surface1.Elements.Item(6),Surface1.Elements.Item(7)
.Add Surface1.Elements.Item(9),Surface1.Elements.Item(10)
.Add Surface1.Elements.Item(9),Surface1.Elements.Item(11)
.Add Surface1.Elements.Item(10),Surface1.Elements.Item(12)
.Add Surface1.Elements.Item(10),Surface1.Elements.Item(11)
End With
.DefArrange(3) = 0
.Arrange h1
.DefArrange(3) = 1
.Arrange h2
.DefArrange(3) = 2
.Arrange h3
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
97
|
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B")
.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C")
.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("D")
.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("C")
End With
.Arrange
End With
End Function
</SCRIPT>
</BODY>
|
|
96
|
Is it possible to change the distance between elements, when calling the Arrange method
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B")
.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C")
.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("D")
.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("C")
End With
.DefArrange(1) = 0
.DefArrange(2) = 0
.Arrange
End With
End Function
</SCRIPT>
</BODY>
|
|
95
|
How do I organize vertically the elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B")
.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C")
.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("D")
.Add Surface1.Elements.Item("B"),Surface1.Elements.Item("C")
End With
.ShowLinksType = 2
.DefArrange(0) = 1
.Arrange
End With
End Function
</SCRIPT>
</BODY>
|
|
94
|
Is there a way to create a link which has the same start and end element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "Element"
End With
With .Links
.Add Surface1.Elements.Item(1),Surface1.Elements.Item(1)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
93
|
How can I prevent hiding the item when an item with an outgoing link, is collapsed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("Item <sha ;;0>1").ID = 1
.Insert("Item <sha ;;0>2",1).ID = 2
With .Add("Item <sha ;;0>3")
.ID = 3
.X = 96
.Y = 23
End With
End With
With .Links
.Add Surface1.Elements.Item(2),Surface1.Elements.Item(3)
End With
.ShowLinksOnCollapse = True
End With
End Function
</SCRIPT>
</BODY>
|
|
92
|
How can I change the toolbar's visual appearance
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(148) = &H1000000
.Background(149) = RGB(255,255,255)
.Background(150) = RGB(40,40,40)
.Background(153) = &H1606060
.Background(154) = RGB(240,240,240)
.Background(155) = &H1a0a0a0
.Background(156) = RGB(255,255,255)
End With
End Function
</SCRIPT>
</BODY>
|
|
91
|
How can I change the toolbar's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(149) = RGB(255,255,255)
End With
End Function
</SCRIPT>
</BODY>
|
|
90
|
How can I fit or ensure that all elements are in the control's client area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("Element A",-500,-500).BackColor = RGB(0,255,0)
.Add("Element B",500,500).BackColor = RGB(255,0,0)
.Add "Element C",48,24
End With
.FitToClient
End With
End Function
</SCRIPT>
</BODY>
|
|
89
|
When I use the context menu to insert an image, the size seems to be fixed to 32 pixels. How can I control / change this
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
' Element.Edit(0,"multiline,wordwrap")
' Element.AutoSize = True
With Surface1
alert( "Call Edit(0) method of the Element object" )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
' SelElement(0).Edit(0,"multiline,wordwrap")
With Surface1
.Selection = .ElementFromPoint(-1,-1)
alert( "Call Edit(0) method of the SelElement(0) property" )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
.Background(99) = &H1000000
.Background(102) = &H1fcddc0
.Background(88) = &H3000000
.SelectObjectColor = RGB(192,221,252)
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.HTMLPicture("pic3") = "c:\exontrol\images\colorize.gif"
With .Elements
.Add("Element A").ID = "A"
With .Add("Custom-size pictures:<br><img>pic1:24</img>,<img>pic2:48</img> ,... and so on.",96,48)
.ID = "B"
.CaptionSingleLine = False
End With
.Add "Element C",48,24
End With
.EditContextMenuItems = "Size[id=57680][edittype=515][border=0][min=16][max=128][freq=16][editwidth=-128][ticklabel=value = %i ? '<b>'+value : ( value =" & _
" vmax ? '<fgcolor 808080><font ;6><b>'+value : ( value = vmin ? '<fgcolor 808080><font ;6><b>'+value : '' ) )],Insert[group=3](<" & _
"img>pic1:32</img>[id=57763],<img>pic2:32</img>[id=57763],Others[id=1000](default[group=3](<img>pic3</img>[id=57763]),<font ;6>ot" & _
"her sizes[sep],<img>pic3:16</img>[id=57763],<img>pic3:32</img>[id=57763],<img>pic3:64</img>[id=57763]))"
End With
End Function
</SCRIPT>
</BODY>
|
|
88
|
Can I add images to node while editing the node using the Edit method
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
' Element.Edit(0,"multiline,wordwrap")
' Element.AutoSize = True
With Surface1
alert( "Call Edit(0) method of the Element object" )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
' SelElement(0).Edit(0,"multiline,wordwrap")
With Surface1
.Selection = .ElementFromPoint(-1,-1)
alert( "Call Edit(0) method of the SelElement(0) property" )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(99) = &H1000000
.Background(102) = &H10000ff
.SelectObjectStyle = -1
.SelectObjectColor = RGB(192,221,252)
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Elements
.Add("Element A").ID = "A"
With .Add("This is a node that displays pictures:<br><img>pic1:48</img>,<img>pic2:48</img> ,... and so on.",96,48)
.ID = "B"
.CaptionSingleLine = False
End With
.Add("Element C",48,24).BackColor = RGB(255,255,255)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
87
|
I am using the Edit method to edit the node, but still not able to display multiple lines. Is this possible
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
' Element.Edit(0,"multiline,wordwrap")
' Element.AutoSize = True
With Surface1
alert( "Call Edit(0) method of the Element object" )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
' SelElement(0).Edit(0,"multiline,wordwrap")
With Surface1
.Selection = .ElementFromPoint(-1,-1)
alert( "Call Edit(0) method of the SelElement(0) property" )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(99) = &H1000000
.Background(102) = &H10000ff
.SelectObjectStyle = -1
.SelectObjectColor = RGB(192,221,252)
With .Elements
.Add("Element A").ID = "A"
With .Add("Right-<b>Click</b> the node to edit it.",96,48)
.ID = "B"
.CaptionSingleLine = False
End With
.Add("Element C",48,24).BackColor = RGB(255,255,255)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
86
|
How can I change the visual appearance of the edit's context menu
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
' Element.Edit(0)
' Element.AutoSize = True
With Surface1
alert( "Call Edit(0) method of the Element object" )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
' SelElement(0).Edit(0)
With Surface1
.Selection = .ElementFromPoint(-1,-1)
alert( "Call Edit(0) method of the SelElement(0) property" )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(99) = &H1000000
.Background(102) = &H10000ff
.SelectObjectStyle = -1
.SelectObjectColor = RGB(192,221,252)
With .Elements
.Add("Element A").ID = "A"
.Add("Right-Click to edit this node",96,48).ID = "B"
.Add("Element C",48,24).BackColor = RGB(255,255,255)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
85
|
How can I edit the node once the user right-click the element
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
' Element.Edit(0)
' Element.AutoSize = True
With Surface1
alert( "Call Edit(0) method of the Element object" )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function Surface1_RClick()
' SelElement(0).Edit(0)
With Surface1
.Selection = .ElementFromPoint(-1,-1)
alert( "Call Edit(0) method of the SelElement(0) property" )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,48).ID = "B"
.Add("Element C",48,24).BackColor = RGB(255,255,255)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
84
|
I wish to return the name that is displayed in the Element that I have selected
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_SelectionChanged()
With Surface1
alert( "The number of selected elements is: " )
alert( .SelCount )
alert( .SelElement(0).Caption )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.HideSel = False
.SelectObjectColorInactive = .SelectObjectColor
.SelectObjectTextColorInactive = .SelectObjectTextColor
With .Elements
.Add("Element 1").Selected = True
With .Add("Element 2")
.X = 32
.Y = 32
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
83
|
Been playing with the surface control with the embedded ExGrid ActiveX...I can see most events coming through via the Surface control but I can't get the OnOLEStartDrag event to fire
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_OleEvent(Element,Ev)
' Ev.Param(1).Value = 2
' Ev.Param(0).Value.SetData("items to be carried")
With Surface1
alert( Ev )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.BeginUpdate
With .Elements
With .InsertControl("Exontrol.Grid")
.ElementFormat = """client"""
With .Object
.BeginUpdate
.OLEDropMode = 1
.Columns.Add "Default"
.Items.AddItem "Click the item so it gets the focus"
.EndUpdate
End With
End With
End With
.MoveCorner 17,0
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
82
|
Is it possible to assign/add a percent to
an element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .Add("Element A")
.ID = "A"
.CaptionAlign = 1
.AutoSize = False
.Height = 36
.Width = 96
.MinHeight = 36
.BackgroundExt = "none[(2,100%-15,100%-4,14)](left[50%,back=RGB(0,255,0),text=`15%`,align=0x11,pattern=6,frame])"
.BackgroundExtValue(2,2) = "75%"
.BackgroundExtValue(2,4) = .BackgroundExtValue(2,2)
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
81
|
How can I disable selecting the nodes/elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowSelectObject = 0
.AllowSelectNothing = False
.AllowSelectObjectRect = 0
.AllowToggleSelectKey = 0
End With
End Function
</SCRIPT>
</BODY>
|
|
80
|
How can I set my zooming levels on the control's toolbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ZoomLevels = "75,100,150,200"
.AllowLinkObjects = 0
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
.Add("Element C",48,12).BackColor = RGB(255,255,255)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
79
|
How can I prevent zooming the surface
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowZoomSurface = 0
.AllowZoomWheelSurface = False
.ToolBarFormat = "-1,100"
End With
End Function
</SCRIPT>
</BODY>
|
|
78
|
How can I prevent adding the links
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowLinkObjects = 0
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
.Add("Element C",48,12).BackColor = RGB(255,255,255)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
77
|
How can I fix all elements on the surface, so no moving or resizing is allowed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowResizeObject = 0
.AllowMoveObject = 0
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
.Add("Element C",48,12).BackColor = RGB(255,255,255)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
76
|
How can I link elements with no pressing the SHIFT key
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowInsertObject = False
.AllowLinkObjects = 1
.AllowMoveObject = 0
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
.Add("Element C",48,12).BackColor = RGB(255,255,255)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
75
|
How can I disable creating the tree/hierarchies
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowInsertObject = False
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
.Add("Element C",48,12).BackColor = RGB(255,255,255)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
74
|
How can I create new elements using simple clicks rather than double clicks
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowCreateObject = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
73
|
How can I disable creating new elements at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowCreateObject = 0
End With
End Function
</SCRIPT>
</BODY>
|
|
72
|
I've noticed that the links cut the elements. Is it possible to show the links on the back
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ShowLinksType = 2
.ShowLinks = 1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
.Add("Element C",48,12).BackColor = RGB(255,255,255)
End With
With .Links
.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).Caption = "link"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
71
|
How can I show a picture on the link
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
End With
With .Links
.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).Caption = "<img>pic1:24</img>"
End With
.ShowLinksType = 2
End With
End Function
</SCRIPT>
</BODY>
|
|
70
|
How can I show a caption on the link
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
End With
With .Links
.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).Caption = "link"
End With
.ShowLinksType = 2
End With
End Function
</SCRIPT>
</BODY>
|
|
69
|
I am using EBN to show my arrows, the question is if I can make it bigger/larger
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .VisualAppearance
.Add 1,"c:\exontrol\images\normal.ebn"
.Add 2,"CP:1 -2 -2 2 2"
End With
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
.Add("Element C",96,-24).ID = "C"
End With
With .Links
.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("B")
.Add Surface1.Elements.Item("A"),Surface1.Elements.Item("C")
End With
.LinksArrowColor = &H2000000
End With
End Function
</SCRIPT>
</BODY>
|
|
68
|
Is it possible to show different type of arrows for links
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Elements
.Add("Element A").ID = "A"
.Add("Element B",96,24).ID = "B"
.Add("Element C",96,-24).ID = "C"
End With
With .Links
.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("B")).ArrowColor = RGB(255,0,0)
.Add(Surface1.Elements.Item("A"),Surface1.Elements.Item("C")).ArrowColor = &H1000000
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
67
|
How can I remove or clear the entire surface
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Elements.Add "element"
.Elements.Clear
.Home
End With
End Function
</SCRIPT>
</BODY>
|
|
66
|
How can I programmatically add a child element, or create a tree/hierarchy
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("Root").ID = "rootID"
.Insert "Child 1","rootID"
.Insert("Child 2","rootID").ID = "childID"
.Insert "Child 3","rootID"
.Insert "Sub-Child 1.2","childID"
.Insert "Sub-Child 2.2","childID"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
65
|
I've noticed that the element's background is transparent. Can I make it opaque
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("new 1").BackColor = RGB(255,255,255)
.Add("new 1",24,24).BackColor = RGB(240,240,240)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
64
|
How can I add a resizable element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .Add("new 1")
.AutoSize = False
.Resizable = True
End With
With .Add("new 1",24,24)
.AutoSize = False
.Resizable = True
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
63
|
How can I programmatically add a new element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "new 1"
.Add "new 1",24,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
62
|
Is it possible to assign a tooltip to an element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Elements.Add("Element with a Tooltip").ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."
End With
End Function
</SCRIPT>
</BODY>
|
|
61
|
How do I specify direct/straight link for all links
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ShowLinksType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
With .Links
.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
60
|
How do I show a direct/straight link
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
With .Links
.Add(Surface1.Elements.Item(1),Surface1.Elements.Item(2)).ShowLinkType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
59
|
How can I ensure that a specified element fits the surface's visible area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .Add("Element A",-100).Pattern
.Type = 6
.Color = RGB(224,224,224)
End With
.Add("Element B",2000).ScrollTo 17
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
58
|
Is it possible to show a pattern like ( not available ) over an element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .Add("Element+Pattern",-100).Pattern
.Type = 6
.Color = RGB(224,224,224)
End With
.Add "Element",100
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
57
|
How can I specify a different overview color for the element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add("Element+A",-100).OverviewColor = RGB(255,0,0)
.Add "Element+B",100
End With
.ScrollPos(True) = 512
End With
End Function
</SCRIPT>
</BODY>
|
|
56
|
I've noticed that some lines are shown on the border, how can I get ride of them
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "Element+A",-100
.Add "Element+B",100
End With
.ScrollPos(True) = 512
.OverviewColor = -1
End With
End Function
</SCRIPT>
</BODY>
|
|
55
|
How can I handle clicking an icon or a picture
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_HandCursorClick(Element,Hit,Key)
With Surface1
alert( Key )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Elements.Add("Caption")
.Pictures = "1,2/pic1/pic2"
.PicturesAlign = 33
.ShowHandCursorOn = 771 ' ShowHandCursorOnEnum.exShowHandCursorExtraPictures Or ShowHandCursorOnEnum.exShowHandCursorPictures Or ShowHandCursorOnEnum.exShowHandCursorIcon Or ShowHandCursorOnEnum.exShowHandCursorPicture
.CaptionAlign = 1
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
54
|
How can I display a picture
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.Elements.Add("Element").Pictures = "pic1/pic2"
End With
End Function
</SCRIPT>
</BODY>
|
|
53
|
How can I display a picture
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.Elements.Add "Icon <img>pic1</img> or <img>pic2</img>"
End With
End Function
</SCRIPT>
</BODY>
|
|
52
|
How can I display an icon
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Elements.Add("Element").Pictures = "0/1,2"
End With
End Function
</SCRIPT>
</BODY>
|
|
51
|
How can I display an icon
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Elements.Add "Icon <img>1</img> or <img>2</img>"
End With
End Function
</SCRIPT>
</BODY>
|
|
50
|
How can I prevent moving all descendent/outgoing elements when focused element is moved, more like a free move
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
With .Links
.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
End With
.ShowLinksType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect
.AllowMoveDescendents = False
End With
End Function
</SCRIPT>
</BODY>
|
|
49
|
How can I display the +/- expand/collapse glyphs next to linked elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
With .Links
.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
End With
.Elements.Item(1).Expanded = False
.ExpandLinkedElements = True
End With
End Function
</SCRIPT>
</BODY>
|
|
48
|
How can I host the Exontrol.Button inside the surface
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .Add("ActiveX")
.Type = 2
.ElementFormat = """check"":18,""client"""
.ShowCheckBox = True
.Control = "Exontrol.Button"
.Object.Caption = "<sha ;;0>button"
.Height = 32
.Width = 128
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
47
|
How can I host a Command button
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .InsertControl("Forms.CommandButton.1")
.ElementFormat = """check"":18,""client"""
.Object.Caption = "command"
.ShowCheckBox = True
.Height = 48
.Width = 128
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
46
|
How can I handle the events of the inner ActiveX control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_OleEvent(Element,Ev)
With Surface1
alert( Ev )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .InsertControl("Forms.CommandButton.1")
.ElementFormat = """check"":18,""client"""
.Object.Caption = "command"
.ShowCheckBox = True
.Height = 48
.Width = 128
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
45
|
How can I display a checkbox while my node hosts an ActiveX inside
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .InsertControl("Forms.CommandButton.1")
.ElementFormat = """check"":18,""client"""
.Object.Caption = "command"
.ShowCheckBox = True
.Height = 48
.Width = 128
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
44
|
Is it possible to display a caption while the element hosts an ActiveX control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .InsertControl("Forms.CommandButton.1")
.ElementFormat = "18;""caption""/""client"""
.Object.Caption = "command"
.Caption = "Forms.CommandButton"
.CaptionAlign = 1
.Height = 48
.Width = 128
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
43
|
I host an ActiveX control but it does not cover the whole element. What can be done
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .InsertControl("Forms.CommandButton.1")
.ElementFormat = """client"""
.Object.Caption = "command"
.Height = 32
.Width = 128
End With
With .InsertControl("Forms.CommandButton.1")
.ElementFormat = """client"""
.Object.Caption = "command"
.Height = 32
.Width = 128
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
42
|
How can I host my ActiveX to the surface (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .InsertControl("Forms.CommandButton.1")
.ElementFormat = """client"""
.Object.Caption = "command"
.Height = 32
.Width = 128
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
41
|
How can I host my ActiveX to the surface (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .Add("ActiveX")
.Type = 2
.ElementFormat = """client"""
.Control = "Forms.CommandButton.1"
.Object.Caption = "command"
.Height = 32
.Width = 128
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
40
|
How can I define the elements with a solid color on the background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(88) = -1
.Background(89) = -1
.Background(90) = RGB(255,0,0)
With .Elements
.Add "Node A"
.Add "Node B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
39
|
Can I display the status to a different part of the element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Elements.Add("Node").StatusAlign = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
38
|
How can I remove or hide the status part of the event
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_AddElement(Element)
' Element.StatusSize = 0
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(89) = -1
With .Elements
.Add "Node A"
.Add "Node B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
37
|
How can I change the visual appearance of the border for all elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(88) = &H1000000
With .Elements
.Add "Element+A"
.Add "Element+B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
36
|
How can I change the color of the border for all elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(88) = RGB(0,255,0)
With .Elements
.Add "Element+A"
.Add "Element+B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
35
|
How can I remove the border for all elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(88) = -1
With .Elements
.Add "Element+A"
.Add "Element+B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
34
|
How do I change the visual appearance the glpyh that shows when the element is added as a child
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
.Background(86) = &H1000000
.Background(87) = &H2000000
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
33
|
Is it possible to change the color for the glpyh that shows when the element is added as a child
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(86) = RGB(255,0,0)
.Background(87) = RGB(255,0,0)
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
32
|
How can I change the color to show a valid link
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(83) = RGB(0,255,0)
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
31
|
How can I change the color to show an invalid link
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(82) = RGB(0,255,0)
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
30
|
How can I disable adding the elements as child of other nodes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowInsertObject = False
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
29
|
How can I prevent moving the outgoing /descendents elements when moving an element
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ShowLinksType = 3 ' ShowLinkTypeEnum.exLinkStraight Or ShowLinkTypeEnum.exLinkDirect
.AllowMoveDescendents = False
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
With .Links
.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
28
|
How can I add programatically a link
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
With .Links
.Add Surface1.Elements.Item(1),Surface1.Elements.Item(2)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
27
|
How do I prevent adding a link between elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowLinkObjects = 0
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
26
|
How can I hide the 100% button ( zoom ) on the control's toolbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ToolBarFormat = "-1,100"
End With
End Function
</SCRIPT>
</BODY>
|
|
25
|
Is it possible to hide the Home button on the control's toolbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ToolBarFormat = "-1,101"
End With
End Function
</SCRIPT>
</BODY>
|
|
24
|
How can I hide the grid lines, including the axis
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ShowGridLines = False
.AxisStyle = -1
End With
End Function
</SCRIPT>
</BODY>
|
|
23
|
How can I hide the grid lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ShowGridLines = False
End With
End Function
</SCRIPT>
</BODY>
|
|
22
|
How can I clear the images shown on the control's toolbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ToolBarReplaceIcon 0,-1
.ToolBarRefresh
End With
End Function
</SCRIPT>
</BODY>
|
|
21
|
How can I replace the default icons shown on the control's toolbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ToolBarReplaceIcon 0,-1
.ToolBarImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
End With
End Function
</SCRIPT>
</BODY>
|
|
20
|
How can I replace the default icons shown on the control's toolbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ToolBarImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ToolBarCaption(100) = "<img>3</img> aka1"
End With
End Function
</SCRIPT>
</BODY>
|
|
19
|
How can I add an anchor element to the control's toolbar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_ToolBarAnchorClick(AnchorID,Options)
With Surface1
alert( AnchorID )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ToolBarFormat = "-1,100,101,|,102"
.ToolBarCaption(102) = "<a a1>anchor</a>"
End With
End Function
</SCRIPT>
</BODY>
|
|
18
|
How can I add a button/image to the control's toolbar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_ToolBarClick(ID,SelectedID)
With Surface1
alert( ID )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ToolBarImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ToolBarFormat = "-1,100,101,102"
.ToolBarCaption(102) = "<img>3</img> new"
End With
End Function
</SCRIPT>
</BODY>
|
|
17
|
How can I add a button to the control's toolbar
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_ToolBarClick(ID,SelectedID)
With Surface1
alert( ID )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ToolBarFormat = "-1,100,101,102"
.ToolBarCaption(102) = "<sha ;;0>new"
End With
End Function
</SCRIPT>
</BODY>
|
|
16
|
How can I hide the control's toolbar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.ToolBarVisible = False
End With
End Function
</SCRIPT>
</BODY>
|
|
15
|
How can I prevent selecting the elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.AllowSelectObject = 0
.AllowSelectObjectRect = 0
.AllowToggleSelectKey = 0
.Elements.Add "element"
End With
End Function
</SCRIPT>
</BODY>
|
|
14
|
How can I show the selected elements the same as the control has the focus
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.HideSel = False
.SelectObjectColorInactive = .SelectObjectColor
.SelectObjectTextColorInactive = .SelectObjectTextColor
.Elements.Add("element").Selected = True
End With
End Function
</SCRIPT>
</BODY>
|
|
13
|
How can I show the selected elements with a different border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.HideSel = False
.SelectObjectStyle = 48
.SelectObjectColor = &H1000000
.SelectObjectTextColor = RGB(0,0,0)
.SelectObjectColorInactive = .SelectObjectColor
.SelectObjectTextColorInactive = .SelectObjectTextColor
.Elements.Add("element").Selected = True
End With
End Function
</SCRIPT>
</BODY>
|
|
12
|
How can I show the selected elements with a different background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.HideSel = False
.SelectObjectStyle = -1
.SelectObjectColor = RGB(255,0,0)
.SelectObjectTextColor = RGB(255,255,255)
.SelectObjectColorInactive = .SelectObjectColor
.SelectObjectTextColorInactive = .SelectObjectTextColor
.Elements.Add("element").Selected = True
End With
End Function
</SCRIPT>
</BODY>
|
|
11
|
Is it possible to add an inner control on the surface
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_OleEvent(Element,Ev)
With Surface1
alert( Ev )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .Add("activex hosting")
.Type = 2
.Control = "Forms.CommandButton.1"
.Caption = "Command Button"
.Height = 64
.Width = 128
.ElementFormat = "14;""caption""/""client"""
.CaptionAlign = 1
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
10
|
How can I make the control read-only
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_LayoutStartChanging(Operation)
With Surface1
alert( Operation )
.CancelLayoutChanging
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
.Add "new element"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
9
|
How can I handle clicking a picture on the element
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_HandCursorClick(Element,Hit,Key)
With Surface1
alert( Key )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Elements
With .Add("new element")
.CaptionAlign = 2
.PicturesAlign = 0
.ShowHandCursorOn = 3335 ' ShowHandCursorOnEnum.exShowHandCursorAnchorAll Or ShowHandCursorOnEnum.exShowHandCursorPictures Or ShowHandCursorOnEnum.exShowHandCursorIcon Or ShowHandCursorOnEnum.exShowHandCursorPicture
.Pictures = "0,1,2"
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
8
|
How can I show the hand cursor when user hovers the element's image
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_HandCursorClick(Element,Hit,Key)
With Surface1
alert( Key )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Elements
With .Add("new element")
.CaptionAlign = 2
.PicturesAlign = 0
.ShowHandCursorOn = 3335 ' ShowHandCursorOnEnum.exShowHandCursorAnchorAll Or ShowHandCursorOnEnum.exShowHandCursorPictures Or ShowHandCursorOnEnum.exShowHandCursorIcon Or ShowHandCursorOnEnum.exShowHandCursorPicture
.Pictures = "0,1,2"
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
7
|
How can I show the hand cursor when user hovers the element's checkbox
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
With .Elements
With .Add("new element")
.CaptionAlign = 2
.CheckBoxAlign = 0
.ShowCheckBox = True
.ShowHandCursorOn = 3084 ' ShowHandCursorOnEnum.exShowHandCursorAnchorAll Or ShowHandCursorOnEnum.exShowHandCursorCheck
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
6
|
How can I remove the status part for all elements
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_AddElement(Element)
' Element.StatusSize = 0
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(89) = -1
.Elements.Add "new element"
End With
End Function
</SCRIPT>
</BODY>
|
|
5
|
How can I remove the border for all elements
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.Background(88) = -1
.Elements.Add "new element"
End With
End Function
</SCRIPT>
</BODY>
|
|
4
|
How do I edit the element's caption once the user creates the element
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_CreateElement(Element)
' Element.Edit(0)
' Element.AutoSize = True
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
3
|
How can I align the element's checkbox next to the text
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.BeginUpdate
With .Elements
With .Add("text")
.ShowCheckBox = True
.CaptionAlign = 2
.CheckBoxAlign = 0
End With
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
2
|
How can I assign a check-box to all elements
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Surface1_AddElement(Element)
' Element.ShowCheckBox = True
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.BeginUpdate
With .Elements
.Add "",-24,-24
.Add("").Checked = 1
End With
.Home
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1
|
How do I change the control's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:AC1DF7F4-0919-4364-8167-2F9B5155EA4B" id="Surface1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Surface1
.BackColor = RGB(240,240,240)
End With
End Function
</SCRIPT>
</BODY>
|